home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / BACKUP / DFINFO.ZIP;1 / SAMPLE.ZIP / DFSAMPLE.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-08-09  |  4.5 KB  |  150 lines
  1. VERSION 2.00
  2. Begin Form DFSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "DFInfo Sample"
  5.    ClientHeight    =   2895
  6.    ClientLeft      =   1350
  7.    ClientTop       =   1965
  8.    ClientWidth     =   3135
  9.    Height          =   3300
  10.    Left            =   1290
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2895
  14.    ScaleWidth      =   3135
  15.    Top             =   1620
  16.    Width           =   3255
  17.    Begin DiskInfo DiskInfo1 
  18.       Disk            =   ""
  19.       Left            =   2760
  20.       Top             =   0
  21.    End
  22.    Begin Frame Frame1 
  23.       Caption         =   "Disk Info"
  24.       Height          =   2535
  25.       Left            =   240
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   2655
  29.       Begin DriveListBox Drive1 
  30.          Height          =   315
  31.          Left            =   720
  32.          TabIndex        =   2
  33.          Top             =   360
  34.          Width           =   1695
  35.       End
  36.       Begin PictureBox Picture1 
  37.          AutoSize        =   -1  'True
  38.          BorderStyle     =   0  'None
  39.          Height          =   420
  40.          Left            =   120
  41.          Picture         =   DFSAMPLE.FRX:0000
  42.          ScaleHeight     =   420
  43.          ScaleWidth      =   420
  44.          TabIndex        =   1
  45.          Top             =   360
  46.          Width           =   420
  47.       End
  48.       Begin Label StartupDrive 
  49.          Alignment       =   1  'Right Justify
  50.          Height          =   255
  51.          Left            =   2040
  52.          TabIndex        =   12
  53.          Top             =   2160
  54.          Width           =   375
  55.       End
  56.       Begin Label Label5 
  57.          Caption         =   "Start-Up Drive:"
  58.          Height          =   255
  59.          Left            =   120
  60.          TabIndex        =   11
  61.          Top             =   2160
  62.          Width           =   1455
  63.       End
  64.       Begin Label NumFloppies 
  65.          Alignment       =   1  'Right Justify
  66.          Height          =   255
  67.          Left            =   1920
  68.          TabIndex        =   10
  69.          Top             =   1920
  70.          Width           =   495
  71.       End
  72.       Begin Label Label4 
  73.          Caption         =   "NumFloppies:"
  74.          Height          =   255
  75.          Left            =   120
  76.          TabIndex        =   9
  77.          Top             =   1920
  78.          Width           =   1575
  79.       End
  80.       Begin Label VolumeName 
  81.          Alignment       =   1  'Right Justify
  82.          Height          =   255
  83.          Left            =   1320
  84.          TabIndex        =   8
  85.          Top             =   960
  86.          Width           =   1095
  87.       End
  88.       Begin Label Label3 
  89.          Caption         =   "Volume:"
  90.          Height          =   255
  91.          Left            =   120
  92.          TabIndex        =   7
  93.          Top             =   960
  94.          Width           =   1095
  95.       End
  96.       Begin Label Network 
  97.          Alignment       =   1  'Right Justify
  98.          Height          =   255
  99.          Left            =   1320
  100.          TabIndex        =   6
  101.          Top             =   1440
  102.          Width           =   1095
  103.       End
  104.       Begin Label Label2 
  105.          Caption         =   "Network:"
  106.          Height          =   255
  107.          Left            =   120
  108.          TabIndex        =   5
  109.          Top             =   1440
  110.          Width           =   1095
  111.       End
  112.       Begin Label FreeSpace 
  113.          Alignment       =   1  'Right Justify
  114.          Height          =   255
  115.          Left            =   1200
  116.          TabIndex        =   3
  117.          Top             =   1200
  118.          Width           =   1215
  119.       End
  120.       Begin Label Label1 
  121.          Caption         =   "Free Space:"
  122.          Height          =   255
  123.          Left            =   120
  124.          TabIndex        =   4
  125.          Top             =   1200
  126.          Width           =   1095
  127.       End
  128.    End
  129. Option Explicit
  130. Sub Drive1_Change ()
  131.     DiskInfo1.Disk = Drive1
  132.     VolumeName = DiskInfo1.VolumeName
  133.     FreeSpace = DiskInfo1.FreeSpace
  134.     If DiskInfo1.Network Then
  135.         Network = "Network"
  136.     Else
  137.         Network = "Local"
  138.     End If
  139. End Sub
  140. Sub Form_Load ()
  141.     DFSample.Left = (Screen.Width - DFSample.Width) / 2
  142.     DFSample.Top = (Screen.Height - DFSample.Height) / 2
  143.     Call Drive1_Change    ' force load of labels
  144.     NumFloppies = DiskInfo1.NumFloppies
  145.     StartupDrive = DiskInfo1.StartupDrive
  146. End Sub
  147. Sub Form_Unload (Cancel As Integer)
  148.     End
  149. End Sub
  150.